SUBPROG EQU #8000
DANNIE2 EQU #FF00
        ORG #7000
STARTF:
        XOR A
        OUT (#FE),A
        LD HL,#5800 ;SET
        LD DE,#5801 ;ATTRIBUTES
        LD B,#3     ;
        LD (HL),#42 ;
        LDIR        ;
                          
        LD H,HIGH SUBPROG 
        LD (HL),#ED
        INC L             
        LD (HL),#A0
        LD L,A
        LD D,H
        INC E

        LD BC,254*2
        LDIR
        EX DE,HL
        LD (HL),#C9
        EX DE,HL
        INC DE
        LD HL,DANNIE
        PUSH DE
        LD C,7
        LDIR
        POP HL
        LD BC,10745
        LDIR
        EX DE,HL
        LD (HL),#C9
        jr $
        LD HL,ATRAZE
        LD DE,#5820
        LD B,5*4
STF001  LD C,8
STF002  RL (HL)
        SBC A,A
        JR Z,N0LIK
        LD A,%11010110
N0LIK   LD (DE),A
        INC DE
        DEC C
        JR NZ,STF002
        INC L
        DJNZ STF001
MAINLOOP:
        EI
        HALT
        LD A,R
        LD H,B
        LD L,A
        LD DE,#4A00
        CALL SUBPROG+#1FF
FFF     LD A,0
        CPL
        LD (FFF+1),A
        OR A
        CALL Z,SKROLL
        JR MAINLOOP
SKROLL: LD  A,01
        DEC A
        JR Z,NEWBUKV
SKRL003 LD  (SKROLL+1),A
        LD  HL,#4F01
        LD  DE,#4F00
        CALL SUBPROG
        LD HL,DANNIE2 ;-1
        LD E,#1F ;+#20
        LD B,6
SKRL001 RL (HL)
        SBC A,A
        LD (DE),A
        LD A,#20
        ADD A,E
        LD E,A
        INC HL
        DJNZ SKRL001
        RET
NEWBUKV LD  HL,TEXT
NNBUKV  BIT 7,(HL)
        JR  Z,NOTNEWTEKST
        LD  HL,TEXT
NOTNEWTEKST:
        LD  A,(HL)
        INC HL
        LD  (NEWBUKV+1),HL
        LD  H,B ;B=0
        LD  L,A
        ADD HL,HL
        ADD HL,HL
        ADD HL,HL
        LD D,#3C ;E=0
        ADD HL,DE
        LD DE,DANNIE2-1
        INC C
;        JR $
        LDIR
        LD A,7
        JR SKRL003
TEXT:   DEFB " ONE INT BLAZING SYMBOLS SCROLLER BY INNERCORE GROUP!   ",#FF
DANNIE: LD A,(DE)
        AND (HL)
        DEC D
        LD (DE),A
        INC D
        INC HL
        INC DE
ATRAZE  DEFB %01111001,%00000011,%10011111,%01111100
        DEFB %01000101,%00000100,%01000010,%01000000
        DEFB %01111001,%00000111,%11000100,%01110000
        DEFB %01000101,%00010100,%01001000,%01000000
        DEFB %01111001,%11110100,%01011111,%01111100
ENDEC   DISPLAY ENDEC-STARTF
        SAVEBIN "blaze.C",STARTF,#100
        SAVESNA "BLAZE.sna",STARTF